#!/usr/bin/perl
use strict;
use warnings;

my @nums = (1.4, 3.5, 6.7);
my @ints = int_all(@nums);
sub int_all {
  my @retlist = @_;
  for my $n (@retlist) {
    $n = int($n);
  }
  return @retlist;
}
print "@ints\n";
